home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_6500.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  49 lines
  1. 5 ONERRORGOTO1000
  2. 10 MODE8:DIM:ERASEa,a$:DIMa(5),a$(1):a$(1)="Input":a$(0)="Delete":c$=CHR$(5)
  3. 20 CLS:PRINT"Statistics  [x]";TAB(0);">In,Del,Clear,List,T-score,P ?";
  4. 30 a=ASC(INPUT$(1)):IFa>96 THENa=a-32
  5. 40 ONa-66 GOTO300,100,,,,,100,,,500,,,,800,,,,400
  6. 50 GOTO30
  7. 100 CLS:PRINTa$(SGN(a-68));" data (x)";TAB(21);"[EXE]:menu";:z=SGN(a-69)
  8. 110 LOCATE0,1:PRINTc$;"x?";
  9. 120 LOCATE2,1:INPUT@12;z$:LOCATE0,0:IFz$="" THEN20 ELSEx=VALF(z$)
  10. 150 r=sa+z:s=sb+x*z:u=sd+x*x*z
  11. 160 sa=r:sb=s:sd=u:GOTO110
  12. 200 c=6
  13. 210 sg=sb/sa
  14. 220 sm=sd-sg*sb:IFsm<0 THENsm=0
  15. 250 si=SQR(sm/sa)
  16. 260 sk=SQR(sm/(sa-1))
  17. 280 RETURN
  18. 300 PRINTc$;"clear data  (Y/N) ?";
  19. 310 a$=INPUT$(1,@):IFa$<>"Y" ANDa$<>"y" THEN20
  20. 320 sa=0:sb=0:sd=0:GOTO20
  21. 400 GOSUB200:IFc<6 ORsi=0 THEN20
  22. 430 LOCATE0,1:PRINTc$;"x?";:INPUT@10;z$:LOCATE0,0:IFz$="" THEN20 ELSEs=VALF(z$)
  23. 440 LOCATE12,1:PRINT":T=";ROUND((s-sg)/si*10+50,-2);:z$=INPUT$(1,@):GOTO430
  24. 500 CLS:GOSUB200:GOSUB580:i=1:GOSUB600:i=2
  25. 510 GOSUB600
  26. 520 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN20
  27. 530 IFz<>13 ANDz<>30 ANDz<>31 THEN520
  28. 540 IF(z=30 ANDi=1) OR(z=31 ANDi=c) THEN520
  29. 550 IFz=30 THENi=i-2
  30. 560 i=i+1:IFi=<c THEN510 ELSE20
  31. 580 DEFCHR$(254)="0808003E00"
  32. 590 a(0)=sa:a(1)=sb:a(2)=sd:a(3)=sg:a(4)=si:a(5)=sk:RETURN
  33. 600 RESTORE(600+i*10):READa$,b$:PRINTTAB(0);a$;TAB(7);":";b$;TAB(13);"=";a(i-1);:RETURN
  34. 610 DATACNT,n
  35. 620 DATASUMX,äx
  36. 630 DATASUMX2,äxý
  37. 640 DATAMEANX,äx/n
  38. 650 DATASDXN,xån
  39. 660 DATASDX,xån“
  40. 800 LOCATE0,1:PRINTc$;".....";:GOSUB200:GOSUB590:RESTORE 610
  41. 810 FORi=1 TOc:READa$,b$:LPRINTa$;TAB(10);"=";a(i-1):NEXT:GOTO20
  42. 1000 IFERR=1 THENCLS:ONERRORGOTO0
  43. 1010 IFERL=120 THENRESUME120
  44. 1030 IFERL=430 THENRESUME430
  45. 1050 IFERL=210 THENc=3:RESUME280
  46. 1060 IFERL=260 THENc=5:RESUME280
  47. 1080 IFERL=150 THENLOCATE0,1:PRINTc$;"data over";:z$=INPUT$(1,@):RESUME20
  48. 1090 LOCATE0,1:PRINTc$;"not found";:a$=INPUT$(1,@):RESUME20
  49.